home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_1015_ScrollBar < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.3 KB  |  63 lines

  1. %case window field%
  2.     %if not mainScroll%
  3.         ControlHandle%    %%HandleName%;
  4.     %end if%
  5. %case create%
  6.     %if not mainScroll%
  7.         cur->%HandleName% = GetNewControl (%cntlID%, newWindow);    
  8.     %end if%
  9. %case dispose%
  10. %case mousein%
  11. %case update%
  12. %case activate%
  13.     %if not mainScroll%
  14.         HiliteScroll (cur->%HandleName%, activate);
  15.     %end if%
  16. %case track%
  17.     %if not mainScroll%
  18.         if (whichControl == cur->%HandleName%) {
  19.             TrackScroll (cur->%HandleName%, whichPart, where, nil);
  20.         }
  21.     %end if%
  22. %case itemNr%
  23.     %DefineItem%
  24. %case dialog field%
  25.     short%        %%fieldname%;
  26.     %Enable?%
  27. %case init field%
  28.     info->%fieldname% = 1;
  29.     %Enable?%
  30. %case auxiliary%
  31.     %needsFilter%
  32.     /*----------*/
  33.     static pascal void %itemname%Action (short        newValue,
  34.                                 short        oldValue);
  35.     static pascal void %itemname%Action (newValue, oldValue)
  36.     short        newValue;
  37.     short        oldValue;
  38.     {
  39.     %if lang = MPW%
  40.     #pragma unused (newValue, oldValue) 
  41.       
  42.     %end if%
  43.     } /*%itemname%Action*/
  44.     
  45. %case filter%
  46.     if (!filtered) {
  47.     %if lang = MPW%
  48.         filtered = FilterScroll (event, %itemname%, &%itemname%Action, itemHit);
  49.     %end if%
  50.     %if lang = Think%
  51.         filtered = FilterScroll (event, %itemname%, (ProcPtr) &%itemname%Action, itemHit);
  52.     %end if%
  53.     }
  54. %case set%
  55.     SetScrollItem (%itemname%, info->%fieldname%, 1, 100, 10);
  56. %case enable%
  57.     %Enable?%
  58. %case hit%
  59.     case %itemname%:
  60.             DoScrollItem (itemNr, &info->%fieldname%);
  61.         break;
  62. %case finish%
  63.